﻿Public Class frmViewAttendanceSheet

    Private Sub frmViewAttendanceSheet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblDate.Text = Date.Now.ToLongDateString
    End Sub

    Private Sub cmdABack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdABack.Click
        Me.Close()
        frmMain.Show()
    End Sub

    Private Sub cmdABack2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdABack2.Click
        Me.Close()
        frmMain.Show()
    End Sub

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
        PictureBox1.Select()
    End Sub
End Class